count.function <- function(experiment){
  data <- read.dta(experiment) #Read in the .dta file.
  canvass <- rbind(sum(data$treat_ind == 1), sum(data$treat_ind == 0))
  t1 <- rbind(sum(data$treat_ind == 1 & data$respondent_t1 == 1, na.rm = TRUE), 
              sum(data$treat_ind == 0 & data$respondent_t1 == 1, na.rm = TRUE))
  table <- cbind(canvass, t1)
  rownames(table) <- c("Treatment", "Placebo")
  colnames(table) <- c("Canvassed", "Post-Survey Respondents")
  kable(table)
}